This forum is closed to new posts and
responses. The content has been migrated to the Digital Solutions Community. Please join us there for new content as well as this content. For customer support, please visit the official HCL customer support channels below:
RE: Text in body field in email ~Mario Lopkistergon 8.Dec.03 06:29 PM a Web browser Notes Client 6.0.1Windows XP
I would suggest this to simply everything. You want tot contents of the adoc body field so just copy the field.
new code would have the newitem set line to be after the set citem line:
Dim newitem As notesrichtextitem
With memo
.EncryptOnSend = False
.form ="Memo"
.sendto="abc@cc.com"
.BlindCopyTo = adoc.BlindCopyTo
End With
Set citem = adoc.GetFirstItem("Body")
Set newitem= citem.copyitemtodocument(memo, "Body")
Call memo.Send(False)
......................
The difference here is that once have an handle on the adoc body field just copy it over to the memo doc if you are not going to change any of the text properties.